From 4d7b296df0122a1e7a17c9f4272065fb6995174e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 30 Jun 2009 02:16:07 +0000 Subject: [PATCH] (setup-default-fontset): Add CJK fonts for symbols and the other miscellaneous characters. --- lisp/international/fontset.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index d041f161cc6..fa7e8b1e117 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -565,6 +565,20 @@ (cons (car math-subgroup) (nth 1 math-subgroup)) (font-spec :registry "iso10646-1" :script (nth 2 math-subgroup)))) + ;; Append CJK fonts for characters other than han, kana, cjk-misc. + ;; CHARSET-REGISTRY CHARSET FROM-CODE TO-CODE + (let ((list '(("JISX0208.1983-0" japanese-jisx0208 #x2121 #x287E) + ("GB2312.1980-0" chinese-gb2312 #x2121 #x297E) + ("BIG5-0" big5 #xA140 #xA3FE) + ("CNS11643.1992-1" chinese-cns11643-1 #x2121 #x427E) + ("KSC5601.1987-0" korean-ksc5601 #x2121 #x2C7E)))) + (dolist (elt list) + (map-charset-chars + #'(lambda (range arg) + (set-fontset-font "fontset-default" range + (cons nil (car elt)) nil 'append)) + (nth 1 elt) nil (nth 2 elt) (nth 3 elt)))) + ;; Append Unicode fonts. ;; This may find fonts with more variants (bold, italic) but which ;; don't cover many characters. -- 2.30.2